2 CLR
5 RESTORE
6 GOSUB15000
10 REM *** STAR TREK 84 ***
11 REM *** REQUIRES 38K RAM
20 REM *** THIS IS A REVISED VERSION OF THE STAR TREK LISTED IN
21 REM *** BASIC COMPUTER GAMES EDITED BY DAVID AHL
22 REM *** THIS REVISION HAS ADDED ON MORE OPTIONS
30 REM *** REVISION BY MIKE OMOTANI, APRIL 1984
50 Z$="                          "
60 DIM G(8,8),C(9,2),K(3,3),N(5),Z(8,8),D(9),DL(5)
70 D0=0:E=3000:E0=E:S=1000
75 P=10:P0=P:S9=300:S=0:B9=0:K9=0:X$="":X0$=" IS ":SJ=2:DR=2:MN=2:S=1000
76 RB=5:PR=1
80 DEF FND(D)=SQR((K(I,1)-S1)^2+(K(I,2)-S2)^2)
90 DEF FNR(R)=INT(RND(.)*9+1)
92 DEF FNVV(V)=INT(RND(.)*8+1)
95 GOSUB11200:PRINT
100 REM REFITTING THE ENTERPRISE
105 PRINT"DO YOU WISH TO REFIT THE ENTERPRISE":INPUT"(Y/N)";E$
110 IFLEFT$(E$,1)="N"THEN 350
115 PRINT:PRINT"IN BRACKETS ARE SHOWN THE MAXIMUM":PRINT"NUMBER POSSIBLE AND THE COST":PRINT
120 INPUT"TORPEDO CAPACITY (20,150) ";P0:P0=INT(P0):P=P0
125 IFP0<0ORP0>20THEN120
130 CO=P0*150:CR=5000-CO
135 PRINT"TOTAL COST = ";INT(CO):PRINT"CREDIT REMAINING = ";INT(CR)
140 PRINT:INPUT"DROIDS (10,250) ";DR:DR=INT(DR)
145 IF DR<0ORDR>10THEN140
150 CO=CO+DR*250:CR=CR-DR*250
155 PRINT"TOTAL COST = ";INT(CO):PRINT"CREDIT REMAINING = ";INT(CR)
160 IF CO>5000 THEN PRINT"START OVER TURD!!":PRINT:GOTO120
165 PRINT:INPUT "SPACE JUMPS (5,350) ";SJ:SJ=INT(SJ)
170 IF SJ<0ORSJ>5THEN165
175 CO=CO+SJ*350:CR=CR-SJ*350
180 PRINT"TOTAL COST = ";INT(CO):PRINT"CREDIT REMAINING = ";INT(CR)
185 IF CO>5000 THEN PRINT"START OVER TURD!!":PRINT:GOTO120
190 PRINT:INPUT"SPACE MINES (5,500) ";MN:MN=INT(MN)
195 IFMN<0ORMN>5THEN190
200 CO=CO+MN*500:CR=CR-MN*500
205 PRINT"TOTAL COST = ";INT(CO):PRINT"CREDIT REMAINING = ";INT(CR)
210 IF CO>5000 THEN PRINT"START OVER TURD!!":PRINT:GOTO120
215 PRINT:INPUT"LR PROBES (5,300) ";PR:PR=INT(PR)
220 IFPR<0ORPR>5THEN215
225 CO=CO+PR*300:CR=CR-PR*300
230 PRINT"TOTAL COST = ";INT(CO):PRINT"CREDIT REMAINING = ";INT(CR)
235 IF CO>5000 THEN PRINT"START OVER TURD!!":PRINT:GOTO120
240 PRINT:INPUT"REPAIR ROBOT (10,200) ";RB:RB=INT(RB)
245 IFRB<0ORRB>10THEN240
250 CO=CO+RB*200:CR=CR-RB*200
255 PRINT"TOTAL COST = ";INT(CO):PRINT"CREDIT REMAINING = ";INT(CR)
260 IF CO>5000 THEN PRINT"START OVER TURD!!":PRINT:GOTO120
265 GOSUB 11200:GOTO 105
350 REM SETTING UP LEVELS OF DIFFICULTY (LD) AND PARAMETERS (DL(5)
355 PRINT"[147]":PRINT:PRINT"WHAT LEVEL DO YOU WANT TO PLAY?":PRINT"(1 - EASY, 15 - DIFFICULT)":PRINT
360 INPUT "LEVEL (1-15) ";LD:PRINT
365 IFLD<1ORLD>15THEN360
370 IFLD<=3THENPRINT"CLIMB UP ON MY KNEE SONNY BOY.":PRINT
372 IFLD>3ANDLD<=7THENPRINT"GET YOUR MOMMY TO HOLD YOUR HAND!":PRINT
375 IFLD>7ANDLD<11THENPRINT"YOU WILD AND CRAZY GUY!!":PRINT
378 IFLD>10ANDLD<15THENPRINT"TALK ABOUT DELUSIONS OF GRANDEUR!!":PRINT
379 IFLD=15THENPRINT"EL LOCO RIDES AGAIN!!":PRINT
380 FOR I=1TO15
382 IFI>LD THEN 395
384 READ DL(1),DL(2),DL(3),DL(4),DL(5),S9
385 IF I=LD THENS9=S9+50*RND(.)
395 NEXTI
400 REM TIME TO DESTROY KLINGONS
405 T=INT(RND(.)*20+20)*100:T0=T:T9=20+LD/2+INT(RND(.)*10)
480 REM INITIALIZE ENTERPRISE'S POSITION76 RB=3:PR=1
490 Q1=FNVV(1):Q2=FNVV(1):S1=FNVV(1):S2=FNVV(1)
530 FOR I=1TO9:C(I,1)=0:C(I,2)=0:NEXT I
540 C(3,1)=-1:C(2,1)=-1:C(4,1)=-1:C(4,2)=-1:C(5,2)=-1:C(6,2)=-1
600 C(1,2)=1:C(2,2)=1:C(6,1)=1:C(7,1)=1:C(8,1)=1:C(8,2)=1:C(9,2)=1
622 AB$="***"
670 FOR I=1TO9: D(I)=0: NEXT I
710 A1$="NAVSRSLRSPHATORSHEDAMCOMXXXWRP"
720 B1$="SHDRESSHTSPMSPJDRDROBCLKLRPMIN"
810 REM SETUP WHAT EXISTS IN GALAXY
820 FOR I=1TO8:FORJ=1TO8:K3=0:Z(I,J)=0:R1=RND(.)
850 IFR1>DL(1)THENK3=3:K9=K9+3:GOTO 980
860 IFR1>DL(2)THENK3=2:K9=K9+2:GOTO 980
870 IFR1>DL(3)THENK3=1:K9=K9+1
980 B3=0:IFRND(.)>DL(4)THENB3=1:B9=B9+1
1040 G(I,J)=K3*100+B3*10+FNVV(1):NEXTJ:NEXTI:IFK9>T9+15THENT9=T9+5
1100 IF B9<>0THEN1200
1150 IF G(Q1,Q2)<200THENG(Q1,Q2)=G(Q1,Q2)+100:K9=K9+1
1160 B9=1:G(Q1,Q2)=G(Q1,Q2)+10:Q1=INT(8*RND(.)+1):Q2=INT(8*RND(.)+1)
1200 K7=K9:IFB9<>1THENX$="S":X0$=" ARE "
1210 PRINT"[147]"
1230 PRINT"YOUR ORDERS ARE AS FOLLOWS:"
1240 PRINT"     DESTROY THE";K9;"KLINGON"
1241 PRINT"WARSHIPS WHICH HAVE INVADED"
1250 PRINT "THE GALAXY BEFORE THEY CAN"
1251 PRINT"ATTACK FEDERATION HEADQUARTERS"
1260 PRINT"STARDATE";T0+T9;"  THIS GIVES YOU"
1261 PRINTT9;"DAYS.  THERE";X0$;"  ";B9
1270 PRINT"STARBASE";X$;" IN THE GALAXY FOR"
1271 PRINT"RESUPPLYING YOUR SHIP"
1280 FORII=1TO500:AA=0:NEXTII
1310 REM HERE ANY TIME NEW QUADRANT ENTERED
1320 Z4=Q1:Z5=Q2:K3=0:B3=0:S3=0:G5=0:D4=RND(.)*.5:Z(Q1,Q2)=G(Q1,Q2)
1390 IF Q1<1ORQ1>8ORQ2  <1ORQ2>8THEN1600
1430 GOSUB9030:PRINT:IF T0<>T THEN 1490
1460 MO=1:GOTO 9500
1462 MO=MO+1:PRINT"YOUR MISSION BEGINS WITH YOUR STARSHIP"
1470 PRINT"LOCATED IN THE GALACTIC QUADRANT ,"
1471 PRINT"'";G2$;"',":GOTO1500
1490 PRINT:PRINT"NOW ENTERING GALACTIC QUADRANT . . .":PRINTTAB(5);G2$
1500 PRINT:K3=INT(G(Q1,Q2)*.01):B3=INT(G(Q1,Q2)*.1)-10*K3
1501 GOSUB9270
1540 S3=G(Q1,Q2)-100*K3-10*B3:IFK3=0THEN1590
1560 PRINT"COMBAT AREA          CONDITION RED":IFS>200THEN1590
1580 PRINT"SHIELDS APPROACHING OVERLOAD"
1590 FORI=1TO3:K(I,1)=0:K(I,2)=0:NEXTI
1600 FORI=1TO3:K(I,3)=0:NEXTI:Q$=Z$+Z$+Z$+Z$+Z$+Z$+Z$+LEFT$(Z$,17)
1660 REM POSITION ENTERPRISE IN QUADRANT
1670 REM THEN PLACE "K3" KLINGONS & "B3" STARBASES & "S3" STARS ELSEWHERE
1680 A$="<*>":Z1=S1:Z2=S2:GOSUB 8670:IFK3<1THEN1820
1720 FORI=1TOK3:GOSUB8590:A$="+K+":Z1=R1:Z2=R2
1780 GOSUB8670:K(I,1)=R1:K(I,2)=R2:K(I,3)=S9*(1.0+RND(.)):NEXTI
1820 IFB3<1THEN1910
1880 GOSUB8590:A$=">!<":Z1=R1:B4=R1:Z2=R2:B5=R2:GOSUB8670
1905 IFS3=0THEN1980
1910 FORI=1TOS3:GOSUB8590:A$=" * ":Z1=R1:Z2=R2:GOSUB8670:NEXTI
1980 GOSUB6430
1985 IF RND(.)>DL(5) THENGOSUB6000
1990 IFS+E>10THENIFE>10ORD(7)=0THEN2060
2020 PRINT:PRINT"** FATAL ERROR **  YOU'VE JUST"
2025 PRINT"STRANDED YOUR SHIP IN SPACE.  YOU"
2030 PRINT"HAVE INSUFFICIENT MANEUVRING ENERGY,"
2035 PRINT"AND SHIELD CONTROL IS PRESENTLY"
2037 PRINT"INCAPABLE OF CROSS-CIRCUITING TO"
2040 PRINT"ENGINE ROOM!!!":FOR II=1 TO 2000:NEXT II:GOTO 6220
2060 PRINT:INPUT"COMMAND";A$
2065 REM CHECK FOR BLACK HOLE, ION STORM, SPIES AND OTHER ALIEN ATTACKS
2070 IF RND(.)>.995THEN 9600
2075 IF RND(.)>.995THEN 10850
2076 IFRND(.)>.995THEN18000
2077 IFRND(.)>.995THEN18100
2078 IFRND(.)>.995THEN18200
2080 FORI=1TO10:IFLEFT$(A$,3)<>MID$(A1$,3*I-2,3)THEN2145
2140 ONIGOTO2295,1980,4000,4260,4700,9650,5690,7290,9299,9500
2145 NEXT I
2150 FOR I=1 TO 10:IF LEFT$(A$,3)<>MID$(B1$,3*I-2,3) THEN 2157
2155 ON I GOTO 5520,9700,9760,9835,9925,9975,10455,11502,10580,10055
2157 NEXT I
2160 PRINT"ENTER ONE OF THE FOLLOWING:"
2165 PRINT"  NAV  (TO SET COURSE)"
2170 PRINT"  SRS  (FOR SHORT RANGE SENSOR SCAN)"
2175 PRINT"  LRS  (FOR LONG RANGE SENSOR SCAN)"
2180 PRINT"  PHA  (TO FIRE PHASERS)"
2185 PRINT"  TOR  (TO FIRE PHOTON TORPEDOES)"
2190 PRINT"  SHE  (STATUS OF SHIELDS)"
2195 PRINT"  DAM  (FOR DAMAGE CONTROL REPORTS)"
2200 PRINT"  COM  (TO CALL ON LIBRARY-COMPUTER)"
2205 PRINT"  WRP  (TO CHANGE WARP SPEED)"
2210 PRINT"  SHD  (TO DISCHARGE SHIELDS)"
2215 PRINT"  RES  (TO REMAIN STATIONARY)"
2220 PRINT"  SHT  (TO SEND OUT SHUTTLE CRAFT)"
2225 PRINT"  SPM  (TO SEND SUBSPACE MESSAGE)"
2230 PRINT"  SPJ  (TO USE SPACE JUMP)"
2235 PRINT"  DRD  (TO SEND OUT DROIDS)"
2240 PRINT"  ROB  (TO USE DAMAGE REPAIR ROBOT)"
2245 PRINT"  CLK  (TO USE CLOAKING DEVICE)"
2250 PRINT"  LRP  (TO USE LONG RANGE PROBE)"
2255 PRINT"  MIN  (TO DETONATE SPACE MINES)"
2280 PRINT"  XXX  (TO RESIGN YOUR COMMAND)"
2285 GOTO 2060
2290 REM COURSE CONTROL BEGINS HERE
2295 REM WW=WARP SPEED
2301 IF D(1)<0 THEN WW=0.2
2303 PRINT "WARP FACTOR ";WW
2305 INPUT"COURSE (1-9)";C1:IFC1=9THENC1=1
2310 IFC1>=1ANDC1<9THEN2360
2330 PRINT"  LT. SULU REPORTS 'INCORRECT COURSE"
2331 PRINT"DATA, SIR!'":GOTO1990
2360 PRINT"DISTANCE (0-8)";:INPUT W1:IF W1<0 OR W1>8 THEN 2360
2380 IFW1>0ANDW1<=8THEN2490
2390 IFW1=0THEN1990
2450 REM NV=ENERGY CONSUMED DURING NAVIGATION
2490 NV=INT(W1*(WW^1.5)+.5):N=INT(W1*8+.5):IFE-NV>=0THEN2495
2492 REM CHECK IF WARP>6
2495 IF WW>6 THEN IFRND(.)>.85 GOTO 9625
2497 GOTO 2590
2500 PRINT"ENGINEERING REPORTS  'INSUFFICIENT ENERGY AVAILABLE"
2510 PRINT"                      FOR MANEUVRING AT WARP ";WW;"!'"
2530 IFS<N-EORD(7)<0THEN1990
2550 PRINT"DEFLECTOR CONTROL ROOM ACKNOWLEDGES";S;"UNITS OF ENERGY"
2560 PRINT"                  PRESENTLY DEPLOYED TO SHIELDS."
2570 GOTO1990
2580 REM KLINGONS MOVE/FIRE ON MOVING STARSHIP
2590 FORI=1TOK3:IFK(I,3)=0THEN2700
2610 A$="   ":Z1=K(I,1):Z2=K(I,2):GOSUB8670:GOSUB8590
2660 K(I,1)=Z1:K(I,2)=Z2:A$="+K+":GOSUB8670
2700 NEXTI:GOSUB6000:D1=0:D6=T8:IFT8>=1THEND6=1
2770 FORI=1TO8:IFD(I)>=0THEN2880
2790 D(I)=D(I)+D6:IFD(I)>-.1ANDD(I)<0THEND(I)=-.1:GOTO2880
2800 IF D(I)<0THEN2880
2810 IF D 1 <>1THEND1=1:PRINT"DAMAGE CONTROL REPORT:   "
2840 R1=I:GOSUB8790:PRINTG2$;" REPAIR COMPLETED."
2880 NEXTI:IFRND(.)>.2THEN3070
2910 R1=FNR(1):IFRND(.)>=.6THEN3000
2930 D(R1)=D(R1)-(RND(.)*5+1):PRINT"DAMAGE CONTROL REPORT:   "
2960 GOSUB8790:PRINTG2$;" DAMAGED.":PRINT:GOTO3070
3000 D(R1)=D(R1)+RND(.)*3+1:PRINT"DAMAGE CONTROL REPORT:   "
3030 GOSUB8790:PRINTG2$;" STATUS:":PRINTTAB(5);"STATE OF REPAIR IMPROVED.":PRINT
3060 REM BEGIN MOVING STARSHIP
3070 A$="   ":Z1=INT(S1):Z2=INT(S2):GOSUB8670
3110 X1=C(C1,1)+(C(C1+1,1)-C(C1,1))*(C1-INT(C1)):X=S1:Y=S2
3140 X2=C(C1,2)+(C(C1+1,2)-C(C1,2))*(C1-INT(C1)):Q4=Q1:Q5=Q2
3170 FORI=1TON:S1=S1+X1:S2=S2+X2:IFS1<1ORS1>=9ORS2<1ORS2>=9THEN3500
3240 S8=INT(S1)*24+INT(S2)*3-26:IFMID$(Q$,S8,2)="  "THEN3360
3320 S1=INT(S1-X1):S2=INT(S2-X2):PRINT"WARP ENGINES SHUT DOWN AT SECTOR"
3350 PRINTTAB(6);S1;",";S2;" DUE TO BAD NAVIGATION":GOTO3370
3360 NEXTI:S1=INT(S1):S2=INT(S2)
3370 A$="<*>":Z1=INT(S1):Z2=INT(S2):GOSUB8670:GOSUB3910:T8=(10.0*W1)/(WW*WW)
3375 S=S*(1.03^T8):IF S>1000 THEN S=1000
3450 T=T+T8:IFT>T0+T9THEN6220
3470 REM SEE IF DOCKED. THEN GET COMMAND
3480 GOTO1980
3490 REM EXCEEDED QUADRANT LIMITS
3500 X=8*Q1+X+N*X1:Y=8*Q2+Y+N*X2:Q1=INT(X/8):Q2=INT(Y/8):S1=INT(X-Q1*8)
3550 S2=INT(Y-Q2*8):IFS1=0THENQ1=Q1-1:S1=8
3590 IFS2=0THENQ2=Q2-1:S2=8
3620 X5=0:IFQ1<1THENX5=1:Q1=1:S1=1
3670 IFQ1>8THENX5=1:Q1=8:S1=8
3710 IFQ2<1THENX5=1:Q2=1:S2=1
3750 IFQ2>8THENX5=1:Q2=8:S2=8
3790 IFX5=0THEN3860
3800 PRINT"LT. UHURA REPORTS MESSAGE FROM"
3805 PRINT"STARFLEET COMMAND: 'PERMISSION TO"
3807 PRINT"ATTEMPT CROSSING OF GALACTIC PERIMETER"
3809 PRINT"IS HEREBY *DENIED*.  SHUT DOWN YOUR"
3810 PRINT"ENGINES'":PRINT
3820 PRINT"CHIEF ENGINEER SCOTT REPORTS 'WARP"
3823 PRINT"ENGINES SHUT DOWN AT SECTOR";S1;",";S2
3830 PRINT"OF QUADRANT";Q1;",";Q2;".'"
3850 IFT>T0+T9THEN6220
3860 IF8*Q1+Q2=8*Q4+Q5THEN3370
3870 T=T+(3.65*W1)/(WW*WW):GOSUB3910:IFT>T0+T9THEN6220
3875 GOTO1320
3900 REM MANOEUVRE ENERGY SUBROUTINE
3910 E=E-NV-10:IFE>=0THENRETURN
3930 PRINT"SHIELD CONTROL SUPPLIES ENERGY TO COMPLETE MANOEUVRE."
3940 S=S+E:E=0:IFS<=0THENS=0
3980 RETURN
3990 REM LONG RANGE SENSOR SCAN CODE
4000 IFD(3)<0THENPRINT"LONG RANGE SENSORS ARE INOPERABLE":GOTO1990
4030 PRINT"LONG RANGE SCAN FOR QUADRANT";Q1;",";Q2
4040 O1$="-------------------":PRINTO1$
4060 FOR I=Q1-1TOQ1+1:N(1)=-1:N(2)=-2:N(3)=-3:FORJ=Q2-1TOQ2+1
4120 IFI>0ANDI<9ANDJ>0ANDJ<9THENN(J-Q2+2)=G(I,J):Z(I,J)=G(I,J)
4179 B$="***  "
4180 NEXTJ: FORL=1TO3:PRINT": ";:IFN(L)<0THENPRINTLEFT$(B$,4);:GOTO4230
4210 PRINTRIGHT$(STR$(N(L)+1000),3);" ";
4230 NEXTL:PRINT":":PRINTO1$:NEXTI:GOTO1990
4250 REM PHASER CONTROL CODE
4260 IFD(4)<0THENPRINT"PHASERS INOPERATIVE":GOTO1990
4265 IFK3>0THEN4330
4270 PRINT"SCIENCE OFFICER SPOCK REPORTS  'SENSORS"
4271 PRINT"SHOW NO ENEMY SHIPS IN THIS QUADRANT":GOTO1990
4330 IFD(8)<0THENPRINT"COMPUTER FAILURE HAMPERS ACCURACY"
4350 PRINT"PHASERS LOCKED ON TARGET;  ";
4360 PRINT"ENERGY AVAILABLE =";E;"UNITS"
4370 INPUT"NUMBER OF UNITS TO FIRE";X:IFX<=0THEN1990
4400 IFE-X<0THEN4360
4410 E=E-X:IFD(7)<0THENX=X*RND(.)
4450 H1=INT(X/K3):FORI=1TO3:IFK(I,3)<=0THEN4670
4480 H=INT((H1/FND(0))*(RND(.)+2)):IFH>.15*K(I,3)THEN4530
4500 PRINT"SENSORS SHOW NO DAMAGE TO ENEMY":PRINTTAB(6);"AT "K(I,1);",";K(I,2):GOTO4670
4530 K(I,3)=K(I,3)-H:PRINTH;"UNIT HIT ON KLINGON AT":PRINTTAB(4);"SECTOR";K(I,1);",";
4550 PRINTK(I,2):IFK(I,3)<=0THENPRINT"*** KLINGON DESTROYED ***":GOTO4580
4560 RK=(INT(10*K(I,3)))/10:PRINT"   (SENSORS SHOW";RK;"UNITS REMAINING)":GOTO4670
4580 K3=K3-1:K9=K9-1:Z1=K(I,1):Z2=K(I,2):A$="   ":GOSUB8670
4650 K(I,3)=0:G(Q1,Q2)=G(Q1,Q2)-100:Z(Q1,Q2)=G(Q1,Q2):IFK9<=0THEN6370
4670 NEXTI:GOSUB6000:GOTO1990
4690 REM PHOTON TORPEDO CODE
4700 IFP<=0THENPRINT"ALL PHOTON TUBES EXPENDED":GOTO 1990
4730 IFD(5)<0THENPRINT"PHOTON TUBES ARE NOT OPERATIONAL":GOTO1990
4760 INPUT"PHOTON TUBE COURSE (1-9)";C1:IFC1=9THENC1=1
4780 IFC1>=1ANDC1<9THEN4850
4790 PRINT"ENSIGN CHEKOV REPORTS,  'INCORRECT COURSE DATA, SIR!"
4800 GOTO1990
4850 X1=C(C1,1)+(C(C1+1,1)-C(C1,1))*(C1-INT(C1)):E=E-2:P=P-1
4860 X2=C(C1,2)+(C(C1+1,2)-C(C1,2))*(C1-INT(C1)):X=S1:Y=S2
4910 PRINT"TORPEDO TRACK:"
4920 X=X+X1:Y=Y+X2:X3=INT(X+.5):Y3=INT(Y+.5)
4960 IFX3<1ORX3>8ORY3>8ORY3<1THEN5490
5000 PRINT"               ";X3;",";Y3:A$="   ":Z1=X:Z2=Y:GOSUB8830
5050 IFZ3<>0THEN4920
5060 A$="+K+":Z1=X:Z2=Y:GOSUB8830:IFZ3=0THEN5210
5110 PRINT"*** KLINGON DESTROYED ***":K3=K3-1:K9=K9-1:IFK9<=0THEN6370
5150 FORI=1TO3:IFX3=K(I,1)ANDY3=K(I,2)THEN5190
5180 NEXTI:I=3
5190 K(I,3)=0:GOTO5430
5210 A$=" * ":Z1=X:Z2=Y:GOSUB8830:IFZ3=0THEN5280
5260 PRINT"STAR AT";X3;",";Y3;"ABSORBED TORPEDO ENERGY.":GOSUB10250
5270 GOSUB6000:GOTO1990
5280 A$=">!<":Z1=X:Z2=Y:GOSUB8830:IFZ3=0THEN4760
5330 PRINT"*** STARBASE DESTROYED ***":B3=B3-1:B9=B9-1
5360 IFB9>0ORK9>T-T0-T9THEN5400
5370 PRINT"THAT DOES IT CAPTAIN!  YOU ARE HEREBY"
5375 PRINT"RELIEVED OF COMMAND AND SENTENCED TO"
5380 PRINT"99 STARDATES OF HARD LABOUR ON CYGNUS!"
5390 GOTO 6270
5400 PRINT"STARFLEET COMMAND REVIEWING YOUR RECORD"
5410 PRINT"TO CONSIDER COURT MARTIAL!":D0=0
5430 Z1=X:Z2=Y:A$="   ":GOSUB8670
5470 G(Q1,Q2)=K3*100+B3*10+S3:Z(Q1,Q2)=G(Q1,Q2):GOSUB6000:GOTO1990
5490 PRINT"TORPEDO MISSED":GOSUB6000:GOTO1990
5520 REM SHIELD DISCHARGE CONTROL
5530 IF D(7)>=0 THEN 5540
5535 PRINT"SHIELD DISCHARGE CONTROL INOPERABLE.":GOTO 1990
5540 IF S>=800 THEN PRINT"SHIELD STATUS: CONDITION GREEN"
5543 IF S>=600 AND S<800 THEN PRINT"SHIELD STATUS: CONDITION YELLOW"
5546 IF S>=300 AND S<600 THEN PRINT"SHIELD STATUS: CONDITION ORANGE"
5548 IF S<300 THEN PRINT"SHIELD STATUS: CONDITION RED"
5555 PRINT"ENERGY AVAILABLE = ";E
5557 REM SD=UNITS TO SHIELD DISCHARGE CONTROL
5560 INPUT"NO. OF UNITS TO DISCHARGE CONTROL";SD
5570 IF SD<0 THEN 5560:IF SD=0 THEN PRINT"<SHIELDS UNCHANGED>"
5580 IF SD>E THEN PRINT"INSUFFICIENT ENERGY AVAILABLE.":IF SD>ETHEN 5560
5590 E=E-SD:S=S+0.002*SD*SD:IF S>1000 THEN S=1000
5600 GOTO 1990
5680 REM DAMAGE CONTROL
5690 IFD(6)>=0THEN5910
5700 PRINT"DAMAGE CONTROL REPORT NOT AVAILABLE":IFD0=0THEN1990
5720 D3=0:FORI=1TO9:IFD(I)<0THEND3=D3+.1
5760 NEXTI:IFD3=0THEN1990
5780 PRINT:D3=D3+D4:IFD3>=1THEND3=.9
5810 PRINT"TECHNICIANS STANDING BY TO EFFECT REPAIRS TO YOUR SHIP;"
5820 PRINT"ESTIMATED TIME TO REPAIR:";.01*INT(100*D3);"STARDATES"
5840 PRINT"WILL YOU AUTHORIZE THE REPAIR ORDER?"
5841 PRINT"(Y / N)"
5842 INPUT A$
5860 IFA$<>"Y"THEN1990
5870 FORI=1TO9:IFD(I)<0THEND(I)=0
5890 NEXTI:T=T+D3+.1
5910 PRINT:PRINT"DEVICE             STATE OF REPAIR":FORR1=1TO9
5920 GOSUB8790:PRINTG2$;LEFT$(Z$,25-LEN(G2$));INT(D(R1)*100)*.01
5950 NEXTR1:PRINT:IFD0<>0THEN5720
5980 GOTO 1990
5990 REM KLINGONS SHOOTING
6000 IFK3<=0THENRETURN
6010 PRINT:IFD0<>0THENPRINT"STARBASE SHIELDS PROTECT THE ENTERPRISE":RETURN
6040 FORI=1TO3:IFK(I,3)<=0THEN6200
6060 H=INT((K(I,3)/FND(1))*(3.5+RND(.))):K(I,3)=K(I,3)/(3+RND(0))
6080 IFCD<=0THEN 6086
6082 IFRND(.)>.9THEN6086
6083 PRINT"KLINGON PHASOR MISS FROM SECTOR";K(I,1);",";K(I,2):GOTO6200
6086 PRINTH;" UNIT HIT ON ENTERPRISE":PRINTTAB(6);"FROM SECTOR";K(I,1);",";K(I,2):S=S-H
6090 IFS<=0THEN6220
6091 IF S>800 THEN CS$="CONDITION GREEN"
6092 IF S>600 AND S<=800 THEN CS$="CONDITION YELLOW"
6093 IF S>300 AND S<=600 THEN CS$="CONDITION ORANGE"
6094 IF S<=300 THEN CS$="CONDITION RED"
6100 PRINT"      <SHIELD STATUS: ";CS$;">":IFH<20THEN6200
6120 IFRND(.)>.6ORH/S<=.02THEN6200
6140 R1=FNR(1):D(R1)=D(R1)-H/S-.5*RND(.):GOSUB8790
6170 PRINT:PRINT"DAMAGE CONTROL REPORT:":PRINT G2$;" DAMAGED BY HIT "
6200 NEXTI:CD=CD-1:RETURN
6210 REM END OF GAME
6220 FORIX=1TO1500:NEXTIX:AA$="*********************************":PRINTAA$:PRINTAA$
6223 PRINT:PRINT:PRINT" DUE TO YOUR INCOMPETENCE THE"
6225 PRINT" ENTERPRISE HAS BEEN DESTROYED AND"
6230 PRINT" AND THE FEDERATION WILL BE CONQUERED!"
6235 PRINT" THERE WERE ";K9;" BATTLE CRUISERS"
6240 PRINT" LEFT WHEN YOU WERE TERMINATED.":PRINT
6245 SC=25*(K7-K9)-1000+LD*20+CR/10
6250 PRINT" YOUR SCORE IS ";INT(SC):PRINT
6255 GOSUB11000:PRINT:PRINT
6260 PRINTAA$:PRINTAA$
6270 END
6370 PRINT:PRINT:AA$="*************************************":PRINTAA$:PRINTAA$:PRINT:PRINT
6371 PRINT" CONGRATULATIONS CAPTAIN!! THANKS TO"
6372 PRINT" YOU THE KLINGONS HAVE BEEN DESTROYED"
6373 PRINT" AND THE FEDERATION IS SAVED."
6374 SC=500*(K7/(T-T0))^2+LD*20+CR/10
6375 PRINT:PRINT" YOUR SCORE IS ";INT(SC):PRINT
6376 GOSUB11000:PRINT:PRINT
6377 PRINTAA$:PRINTAA$
6390 END
6420 REM SHORT RANGE SENSOR SCAN AND STARTUP ROUTINE
6430 FORI=S1-1TOS1+1:FORJ=S2-1TOS2+1
6450 IFINT(I+.5)<1ORINT(I+.5)>8ORINT(J+.5)<1ORINT(J+.5)>8THEN6540
6490 A$=">!<":Z1=I:Z2=J:GOSUB8830:IFZ3=1THEN6580
6540 NEXTJ:NEXTI:D0=0:GOTO6650
6580 D0=1:C$="DOCKED":E=E0:P=P0
6620 PRINT"SHIELDS DROPPED FOR DOCKING PURPOSES":S=1000:GOTO6720
6650 IFK3>0THENC$="*RED*":GOTO6720
6660 C$="GREEN":IFE<E0*.1THENC$="YELLOW"
6720 IFD(2)>=0THEN6750
6730 PRINT:PRINT"*** SHORT RANGE SENSORS ARE OUT ***":PRINT:RETURN
6750 IF S>800 THEN CS$="CONDITION GREEN"
6751 IF S>600 AND S<=800 THEN CS$="CONDITION YELLOW"
6752 IF S>300 AND S<=600 THEN CS$="CONDITION ORANGE"
6753 IF S<=300 THEN CS$="CONDITION RED"
6770 PRINT:PRINT"        STARDATE          ";INT(T*10)*.1:PRINT
6771 PRINT"        CONDITION          ";C$:PRINT
6772 PRINT"        QUADRANT          ";Q1;",";Q2:PRINT
6773 PRINT"        SECTOR            ";S1;",";S2:PRINT
6774 PRINT"        PHOTON TORPEDOES  ";INT(P):PRINT
6775 PRINT"        TOTAL ENERGY      ";INT(E):PRINT
6776 PRINT"        SHIELDS        ";CS$:PRINT
6777 PRINT"        KLINGONS REMAINING";INT(K9):PRINT
6778 GOSUB9270
6781 O1$="---------------------------------":PRINTO1$:FORI=1TO8:PRINT:PRINT
6820 FORJ=(I-1)*24+1TO(I-1)*24+22STEP3:PRINT" ";MID$(Q$,J,3);:NEXTJ
7260 NEXTI:PRINT:PRINTO1$:RETURN
7280 REM LIBRARY COMPUTER CODE
7290 IFD(8)<0THENPRINT"COMPUTER DISABLED":GOTO1990
7320 PRINT"COMPUTER ACTIVE AND AWAITING "
7321 INPUT"YOUR COMMAND";A
7322 IFA<0THEN1990
7350 PRINT:H8=1:ONA+1GOTO7543,7900,8070,8500,8150,7400,10755
7360 PRINT"FUNCTIONS AVAILABLE FROM LIBRARY-COMPUTER:"
7370 PRINT"   0 = CUMULATIVE GALACTIC RECORD"
7372 PRINT"   1 = STATUS REPORT"
7374 PRINT"   2 = PHOTON TORPEDO DATA"
7376 PRINT"   3 = STARBASE NAV DATA"
7378 PRINT"   4 = DIRECTION/DISTANCE CALCULATOR"
7380 PRINT"   5 = GALAXY 'REGION NAME' MAP"
7390 PRINT"   6 = INVENTORY OF DEVICES ON BOARD":PRINT:GOTO7320
7400 H8=0:G5=1:PRINT"                       THE GALAXY":GOTO7550
7530 REM GALACTIC RECORD
7543 PRINT:PRINT"        ";
7544 PRINT"COMPUTER RECORD OF GALAXY FOR":PRINT"QUADRANT";Q1;",";Q2
7546 PRINT
7550 PRINT"    1   2   3   4   5   6   7   8
7560 O1$[178]"  CLOSE --- --- --- --- --- --- --- ---"
7570 [153]O1$:[129]I[178]1[164]8:[153]I;:[139]H8[178]0[167]7740
7630 [129]J[178]1[164]8:[153]" ";:[139]Z(I,J)[178]0[175] G(I,J)[179][177]0 [167][153]"***";:[137]7720
7700 [153][201]([196](Z(I,J)[170]1000),3);
7720 [130]J:[137]7850
7740 Z4[178]I:Z5[178]1:[141]9030:J0[178][181](10[171].5[172][195](G2$)):[153][163]J0);G2$;
7800 Z5[178]5:[141] 9030: J0[178][181](30[171].5[172][195](G2$)):[153] [163]J0);G2$
7850 [153]:[153]O1$:[130]I:[153]:[137]1990
7890 [143] STATUS REPORT
7900 [153]"  STATUS REPORT:":X$[178]"":[139]K9[177]1[167]X$[178]"S"
7940 [153]"KLINGON";X$;" LEFT: ";K9
7960 [153]"MISSION MUST BE COMPLETED IN";.1[172][181]((T0[170]T9[171]T)[172]10);"STARDATES"
7970 X$[178]"S":[139]B9[179]2[167]X$[178]"":[139]B9[179]1[167]8010
7980 [153]"THE FEDERATION IS MAINTAINING";B9
7981 [153]"STARBASE";X$;" IN THE GALAXY"
7990 [137]5690
8010 [153]"YOUR STUPIDITY HAS LEFT YOU ON"
8020 [153]"YOUR OWN IN THE GALAXY -- YOU"
8021 [153]"HAVE NO STARBASES LEFT!":[137]5690
8060 [143] TORPEDO, BASE NAV, D/D CALCULATOR
8070 [139]K3[179][178]0[167]4270
8080 X$[178]"":[139]K3[177]1[167]X$[178]"S"
8090 [153]"FROM ENTERPRISE TO KLINGON"
8091 [153]"BATTLE CRUISER";X$
8100 H8[178]0:[129]I[178]1[164]3:[139]K(I,3)[179][178]0[167]8480
8110 W1[178]K(I,1):X[178]K(I,2)
8120 C1[178]S1:A[178]S2:[137]8220
8150 [153]"DIRECTION/DISTANCE CALCULATOR:"
8160 [153]"YOU ARE AT QUADRANT ";Q1;",";Q2
8161 [153]"           SECTOR ";S1;",";S2
8170 [153]"PLEASE ENTER":[133]" INITIAL COORDINATES (X,Y)";C1,A
8200 [133]"FINAL COORDINATES (X,Y)";W1,X
8220 X[178]X[171]A:A[178]C1[171]W1:[139]X[179]0[167]8350
8250 [139]A[179]0[167]8410
8260 [139]X[177]0[167]8280
8270 [139]A[178]0[167]C1[178]5:[137]8290
8280 C1[178]1
8290 [139][182](A)[179][178][182](X)[167]8330
8310 [153]"DIRECTION =";C1[170]((([182](A)[171][182](X))[170][182](A))[173][182](A)):[137]8460
8330 [153]"DIRECTION =";C1[170]([182](A)[173][182](X)):[137]8460
8350 [139]A[177]0[167]C1[178]3:[137]8420
8360 [139]X[179][177]0[167]C1[178]5:[137]8290
8410 C1[178]7
8420 [139][182](A)[177][178][182](X)[167]8450
8430 [153]"DIRECTION =";C1[170]((([182](X)[171][182](A))[170][182](X))[173][182](X)):[137]8460
8450 [153]"DIRECTION =";C1[170]([182](X)[173][182](A))
8460 [153]"DISTANCECLOSE=";[186](X[174]2[170]A[174]2):[139]H8[178]1[167]1990
8480 [130]I:[137]1990
8500 [139]B3[179][177]0[167][153]"FROM ENTERPRISE TO STARBASE:":W1[178]B4:X[178]B5:[137]8120
8510 [153]"MR. SPOCK REPORTS, 'SENSORS"
8520 [153]"SHOW NO STARBASES IN THIS QUADRANT.'":[137]1990
8580 [143] FIND EMPTY PLACE IN QUADRANT (FOR THINGS)
8590 R1[178][165]VV(1):R2[178][165]VV(1):A$[178]"   ":Z1[178]R1:Z2[178]R2:[141]8830:[139]Z3[178]0[167]8590
8600 [142]
8660 [143] INSERT IN STRING ARRAY FOR QUADRANT
8670 S8[178][181](Z2[171].5)[172]3[170][181](Z1[171].5)[172]24[170]1
8675 [139] [195](A$)[179][177]3[167] [153]"ERROR":[144]
8680 [139]S8[178]1[167]Q$[178]A$[170][201](Q$,189):[142]
8690 [139]S8[178]190[167]Q$[178][200](Q$,189)[170]A$:[142]
8700 Q$[178][200](Q$,S8[171]1)[170]A$[170][201](Q$,190[171]S8):[142]
8780 [143] PRINTS DEVICE NAME
8790 [145]R1[137]8792,8794,8796,8798,8800,8802,8804,8806,8808
8792 G2$[178]"WARP ENGINES":[142]
8794 G2$[178]"SHORT RANGE SENSORS":[142]
8796 G2$[178]"LONG RANGE SENSORS":[142]
8798 G2$[178]"PHASER CONTROL":[142]
8800 G2$[178]"PHOTON TUBES":[142]
8802 G2$[178]"DAMAGE CONTROL":[142]
8804 G2$[178]"SHIELD DISCHARGE CONTROL":[142]
8806 G2$[178]"LIBRARY-COMPUTER":[142]
8808 G2$[178]"CLOAKING DEVICE":[142]
8820 [143] STRING COMPARISON IN QUADRANT ARRAY
8830 Z1[178][181](Z1[170].5):Z2[178][181](Z2[170].5):S8[178](Z2[171]1)[172]3[170](Z1[171]1)[172]24[170]1:Z3[178]0
8890 [139][202](Q$,S8,3)[179][177]A$[167][142]
8900 Z3[178]1:[142]
9010 [143] QUADRANT NAME IN G2$ FROM Z4,Z5 (=Q1,Q2)
9012 [143] CALL WITH G5=1 TO GET REGION NAME ONLY
9030 [139]Z5[179][178]4[167][145]Z4[137]9040,9050,9060,9070,9080,9090,9100,9110
9035 [137]9120
9040 G2$[178]"ANTARES":[137]9210
9050 G2$[178]"RIGEL":[137]9210
9060 G2$[178]"PROCYON":[137]9210
9070 G2$[178]"VEGA":[137]9210
9080 G2$[178]"CANOPUS":[137]9210
9090 G2$[178]"ALTAIR":[137]9210
9100 G2$[178]"SAGITTARIUS":[137]9210
9110 G2$[178]"POLLUX":[137]9210
9120 [145]Z4[137]9130,9140,9150,9160,9170,9180,9190,9200
9130 G2$[178]"SIRIUS":[137]9210
9140 G2$[178]"DENEB":[137]9210
9150 G2$[178]"CAPELLA":[137]9210
9160 G2$[178]"BETELGEUSE":[137]9210
9170 G2$[178]"ALDEBARAN":[137]9210
9180 G2$[178]"REGULUS":[137]9210
9190 G2$[178]"ARCTURUS":[137]9210
9200 G2$[178]"SPICA"
9210 [139]G5[179][177]1[167][145]Z5[137]9230,9240,9250,9260,9230,9240,9250,9260
9220 [142]
9230 G2$[178]G2$[170]" I ":[142]
9240 G2$[178]G2$[170]" II ":[142]
9250 G2$[178]G2$[170]" III ":[142]
9260 G2$[178]G2$[170]" IV ":[142]
9265 [143] MONITOR CONTROL
9270 [153]:[153]"HIT ANY KEY TO CONTINUE":[153]
9271 [161]F$:[139]F$[178]""[167]9271:[146] [129] A KEY
9272 [142]
9298 [143] RESIGNING COMMAND - END GAME
9299 AA$[178]"**************************************"
9300 [153]"(LOAD)":[153]:[153]:[153]AA$:[153]AA$:[153]:[153]
9301 [153]"THERE WERE";K9;"KLINGON BATTLE CRUISERS"
9302 [153]"LEFT WHEN YOU RESIGNED.":[153]
9303 [139] T[178]T0 [167] SC[178](K7[171]K9)[171]1500[170]LD[172]20[170]CR[173]10:[137]9310
9305 SC[178]25[172](K7[171]K9)[171]1500[170]LD[172]20[170]CR[173]10
9310 [153]" YOUR SCORE IS ";[181](SC):[153]
9315 [141] 11000:[153]:[153]
9320 [153]AA$:[153]AA$:[153]:[153]
9350 [128]
9500 [143] WARP DRIVE CONTROL
9501 X$[178]"8":[139] D(1)[179]0 [167] X$[178]"0.2"
9510 [153]"WARP FACTOR (0-";X$;")";:[133] WW:[139] D(1)[179]0 [175] WW[177].2 [167] 9560
9520 [139] WW[177]0 [175] WW[179][178]8 [167] 9570
9530 [139] WW[178]0 [167] 9510
9540 [153]"CHIEF ENGINEER SCOTT REPORTS 'THE"
9545 [153]"ENGINES WONT TAKE WARP ";WW;"!!'":[137] 9500
9560 [153]"WARP ENGINES ARE DAMAGED.":[153]"MAXIMUM SPEED = WARP 0.2":[137]9500
9570 [139] MO[178]1 [167] 1462
9580 [137] 2060
9600 [143] BLACK HOLE SITUATION
9605 [153]"ENTERPRISE HAS BEEN PULLED INTO A":[153]"BLACK HOLE.!!"
9610 Q1[178][181](7.98[172][187](.)[170]1.01):Q2[178][181](7.98[172][187](.)[170]1.01):[141]10210
9612 [129] IL[178]1 [164] 1500:[130]IL
9615 [137] 1310
9625 [143] BREAKDOWN OF WARP ENGINES
9630 D(1)[178][171]4.5[172][187](.)[170]D(1)
9635 [153]"WARP ENGINES OVERLOADED." :[153]"MAXIMUM SPEED NOW WARP 0.2."
9640 WW[178]0.2:[137] 1990
9650 [143] SHIELD STATUS REPORT
9660 S8[178]([181](S))[173]10:S7$[178][196](S8)[170]"%"
9670 [139] S[179]300 [167] [153]"SHIELD STATUS: ";S7$;"    CONDITION RED"
9675 [139] S[177][178]300[175]S[179]600 [167] [153]"SHIELD STATUS: ";S7$;"   CONDITION ORANGE"
9680 [139] S[177][178]600[175]S[179]800 [167] [153]"SHIELD STATUS: ";S7$;"   CONDITION YELLOW"
9685 [139] S[177][178]800 [167] [153]"SHIELD STATUS: ";S7$;"    CONDITION GREEN"
9690 [137] 1990
9700 [143] REST PERIOD (T6)
9710 [133] "REST PERIOD ";T6
9712 T[178]T[170]T6:TX[178].1[172][181]((T0[170]T9[171]T)[172]10):[139] TX[179][178]0 [167]6220
9713 S[178]S[172](1.03[174]T6):[139] S[177]1000 [167] S[178]1000
9714 [139] T6[179][178].25 [167] 9718
9715 TE[178][181](T6[173].75[170].75):[129] IM[178]1[164] TE:[141] 6000:[130]IM
9718 [129] IP[178]1[164]9:[139] D(IP)[177][178]0 [167] 9750
9720 D(IP)[178]D(IP)[170]T6:[139] D(IP)[177][171].1 [175] D(IP)[179]0 [167] D(IP)[178][171].1:[137] 9750
9725 [139] D(IP)[179]0 [167] 9750
9730 [139] D1[179][177]1 [167] D1[178]1:[153]"DAMAGE CONTROL REPORT:   "
9735 R1[178]IP:[141] 8790:[153] G2$;" REPAIR COMPLETED."
9750 [130] IP:[137] 1990
9755 [143] SHUTTLE CRAFT SEARCH
9757 T[178]T[170]1:[139] T[177]T0[170]T9[167] 6220:S[178]S[172]1.03:[139] S[177]1000 [167] S[178]1000
9758 [139] E[171]25[179]0[167] [153]"INSUFFICIENT ENERGY TO LAUNCH SHUTTLE"
9759 [139] E[171]25[179]0 [167] 1990
9760 E[178]E[171]25
9765 [129] I[178]1 [164] 8:[139] D(I)[177][178]0 [167] 9790
9770 D(I)[178]D(I)[170]1:[139] D(I)[177][171].1 [175] D(I)[179]0 [167] D(I)[178][171].1:[137] 9790
9775 [139] D(I)[179]0 [167] 9790
9780 [139] D1[179][177]1 [167] D1[178]1:[153]"DAMAGE CONTROL REPORT:   ";
9785 [153][163]8);:R1[178]I:[141] 8790:[153]G2$;" REPAIR COMPLETED."
9790 [130] I:[129] IR[178]1 [164] 2000:[130] IR
9791 [139] K3[179][178]0 [167] 9795
9792 [153]"KLINGONS PRESENT PREVENT SHUTTLE FROM"
9793 [153]"LEAVING THE VICINITY OF THE ENTERPRISE":[137] 1990
9795 [139] [187](.)[177].35[167] 9820
9800 [139] [187](.)[179].65 [167] 9810
9803 [153]"SHUTTLE HAS ENCOUNTERED A SUPPLY SHIP."
9805 ES[178]50[172][181](20[172][187](.)[170]1):[153]"ENERGY TRANFERRED TO THE ENTERPRISE=";ES
9806 E[178]E[170]ES:[141] 6000:[137] 1990
9810 [153]"SHUTTLE HAS FOUND ENERGY SUPPLY ON ":[153]"NEARBY PLANET.":[137] 9805
9820 [153]"SHUTTLE HAS ENCOUNTERED NO AID.":[141] 6000:[137]1990
9830 [143] SUBSPACE MESSAGE
9835 [139] E[171]150[177]0 [167] 9838
9836 [153]"INSUFFICIENT ENERGY TO TRANSMIT":[153]"SUBSPACE MESSAGE.":[137]1990
9838 E[178]E[171]150
9840 T[178]T[170].1:SM[178][181](10[172][187](.)[170]1):[129] II[178]1[164] 2000:[130]II
9841 [139] K3[179][178]0 [167] 9845
9842 [153]"KLINGONS ARE JAMMING SUBSPACE MESSAGE.":[137] 1990
9845 [145] SM [137] 9850,9860,9855,9860,9865,9870,9875,9880,9885,9890
9850 [153]"NO STARCRAFT WITHIN RANGE OF SUBSPACE":[153]"MESSAGE.":[137] 1990
9855 [153]"SUBSPACE MESSAGE HAS ATTRACTED ORION":[153]"PIRATES."
9857 OP[178][181](250[172][187](.)[170]1):[153]OP;" UNIT HIT ON SHIELDS":S[178]S[171]OP:[139]S[179]0[167]6220
9858 [141]9895:[141]10210:[129]II[178]1[164]2000:[130]II:[153]"PIRATE VESSEL HAS RETREATED."
9859 [137]1990
9860 [153]"SUBSPACE MESSAGE HAS BEEN INTERCEPTED":[153]"BY ROMULAN CRUISER."
9862 RC[178][181](450[172][187](.)[170]1):S[178]S[171]RC:[153]RC;" UNIT HIT ON THE SHIELDS.":[141] 9895
9863 [141]10210:[139] S[179]0[167] 6220:[129] II[178]1 [164] 2000:[130]II:[139] [187](.)[177].5 [167] 9862
9864 [153]"ROMULAN VESSEL HAS LEFT THE SECTOR.":[137] 1990
9865 [153]"ATTACK BY TWO THOLIAN STARSHIPS."
9866 TH[178][181](300[172][187](.)[170]1):SS[178]S[171]TH:[153]TH;" UNIT HIT ON THE SHIELDS."
9867 [141] 9895:[139] S[179]0 [167] 6220:[141]10210:[129] II[178]1 [164] 2000:[130]II
9868 [139] [187](.)[177].6 [167] 9866
9869 [153]"THOLIAN SHIPS HAVE LEFT THE SECTOR.":[137] 1990
9870 [153]"NAVAL SUPPLY SHIP HAS ANSWERED":[153]"SUBSPACE MESSSAGE."
9871 NS[178]50[172]([181](10[172][187](.)[170]1)):[153]NS;" UNITS OF ENERGY HAVE BEEN ADDED."
9872 E[178]E[170]NS:[139]E[177]3000 [167] E[178]3000
9873 NS[178][181](5[172][187](.)[170]1):[153]NS;" PHOTON TORPEDOES HAVE BEEN ADDED."
9874 P[178]P[170]NS:[137]1990
9875 [153]"VULCAN STARSHIP INTREPID HAS COME."
9876 [153]"ALL DAMAGE TO INSTRUMENTS HAS BEEN":[153]"REPAIRED."
9877 [153]"ENGINES HAVE BEEN SET TO WARP 3":[129] I[178]1[164]9:D(I)[178]0:[130]I:WW[178]3
9878 [129] II[178]1 [164] 3000:[130]II:[137] 1990
9880 [153]"FEDERATION CRUISER USS DEFIANT HAS ":[153]"ARRIVED."
9881 [153]"ALL DAMAGE TO WARP ENGINES, PHASARS,":[153]"PHOTON TORPEDOES AND SHIELD"
9882 [153]"DISCHARGE CONTROLS HAS BEEN REPAIRED."
9883 [153]"ENGINES HAVE BEEN SET TO WARP 3.":WW[178]3:D(1)[178]0:D(4)[178]0:D(5)[178]0:D(7)[178]0
9884 [137] 1990
9885 [153]"FEDERATION SUPPLY SHIP HAS COME."
9886 [153]"DAMAGE CONTROL HAS BEEN REPAIRED.":D(6)[178]0:FS[178]40[172][181](10[172][187](.)[170]1)
9887 [153]FS;" UNITS OF ENERGY HAVE BEEN ADDED.":E[178]E[170]FS:[139] E[177]3000 [167] E[178]3000
9888 [137] 1990
9890 [153]"VULCAN SCIENTIFIC EXPEDITION ANSWERS":[153]"SUBSPACE MESSAGE."
9891 [153]"DAMAGE TO SHORT RANGE SENSORS, LONG"
9892 [153]"RANGE SENSORS AND LIBRARY COMPUTER HAS":[153]"BEEN REPAIRED."
9893 D(2)[178]0:D(3)[178]0:D(8)[178]0:[137] 1990
9895 [139] S[177]800 [167] CS$[178]"CONDITION GREEN"
9896 [139] S[177]600 [175] S[179][178]800 [167] CS$[178]"CONDITION YELLOW"
9897 [139] S[177]300 [175] S[179][178]600 [167] CS$[178]"CONDITION ORANGE"
9898 [139] S[179][178]300 [167] CS$[178]"CONDITION RED"
9899 [153]"      <SHIELD STATUS: ";CS$;">":[142]
9920 [143] SPACE JUMP (SJ)
9925 [139] SJ[177]0 [167] 9935
9930 [153]"NO MORE SPACE JUMPS REMAINING.":[137] 1990
9935 [139] D(1)[177][178]0 [167] 9945
9940 [153]"DAMAGE TO WARP ENGINES PREVENTS SPACE":[153]"JUMP.":[137] 1990
9945 [153]"PRESENT QUADRANT  ";Q1;",";Q2
9950 [133] "FINAL COORDINAES (X,Y) ";Q1,Q2
9952 [139] Q1[179]1[176]Q1[177]8 [167] 9950:[139] Q2[179]1[176]Q2[177]8 [167] 9950
9955 [153]"WARP ENGINES ENGAGING SPACE JUMP.":[129] IP[178]1 [164] 2000:[130]IP:SJ[178]SJ[171]1
9960 T[178]T[170].001:[137] 1310
9970 [143] DROID COMMAND (DR)
9975 [139] DR[177]0 [167] 9985
9980 [153]"NO MORE DROIDS REMAINING.":[137] 1990
9985 [139] D(2)[179]0 [167] 10003
9990 [153]"SHORT RANGE SENSORS ARE OPERABLE."
9991 [153]"DO YOU STILL WANT TO LAUNCH THE DROID":[133] "Y/N)";DR$
10000 [139] [200](DR$,1)[178]"N" [167] 1990
10003 [153]"DROID IS BEING LAUNCHED.":[129] I[178]1 [164] 1500:[130]I
10006 [139] K3[177]0[175] [187](.)[177].7 [167] [153]"KLINGONS HAVE DESTROYED DROID.":[137] 10040
10009 [129]I[178]S1[171]1[164]S1[170]1:[129]J[178]S2[171]1[164]S2[170]1
10010 [139][181](I[170].5)[179]1[176][181](I[170].5)[177]8[176][181](J[170].5)[179]1[176][181](J[170].5)[177]8[167]10020
10015 A$[178]">!<":Z1[178]I:Z2[178]J:[141]8830
10020 [130]J:[130]I:D0[178]0
10025 O1$[178]"---------------------------------":[153]O1$:[129]I[178]1[164]8:[153]:[153]
10030 [129]J[178](I[171]1)[172]24[170]1[164](I[171]1)[172]24[170]22[169]3:[153]" ";[202](Q$,J,3);:[130]J
10035 [130]I:[153]:[153]O1$
10040 DR[178]DR[171]1:[137] 1990
10050 [143] SPACE MINE COMMAND (MN)
10055 [139] MN[177]0 [167] 10063
10060 [153]"NO MORE SPACE MINES LEFT ON BOARD.":[137] 1990
10063 [153]"SPACE MINE IS BEING ARMED."
10065 [133] "COURSE (1-8) ";C9
10070 [139] C9[179]1 [176] C9[177]8 [167] 10065
10075 C9[178][181](C9)
10080 [145] C9 [137] 10085,10090,10095,10100,10105,10110,10115,10120
10085 M1[178]Q1:M2[178]Q2[170]1:[137] 10125
10090 M1[178]Q1[171]1:M2[178]Q2[170]1:[137] 10125
10095 M1[178]Q1[171]1:M2[178]Q2:[137] 10125
10100 M1[178]Q1[171]1:M2[178]Q2[171]1:[137] 10125
10105 M1[178]Q1:M2[178]Q2[171]1:[137] 10125
10110 M1[178]Q1[170]1:M2[178]Q2[171]1:[137] 10125
10115 M1[178]Q1[170]1:M2[178]Q2:[137] 10125
10120 M1[178]Q1[170]1:M2[178]Q2[170]1:[137] 10125
10125 [139] M1[179]1 [176] M1[177]8 [167] 10130
10126 [139] M2[177][178]1[175]M2[179][178]8 [167] 10140
10130 [129] I[178]1 [164] 1500:[130]I:[153]"SPACE MINE HAS DETONATED WHILE"
10132 [153]"CROSSINGTHE GALACTIC BARRIER."
10135 MN[178]MN[171]1:[137] 1990
10140 Z4[178]M1:Z5[178]M2:[129]I[178]1 [164] 1500:[130]I
10150 [141] 9030:[153]"SPACE MINE HAS ENTERED QUADRANT"
10160 [153] G2$;" AND DETONATED."
10170 [153]"ALL MATTER WITHIN THIS QUADRANT HAS":[153]"BEEN ANNIHILATED!!"
10171 K8[178][181](G(M1,M2)[172].01):B8[178][181](G(M1,M2)[172].1)[171]10[172]K8
10172 S8[178]G(M1,M2)[171]100[172]K8[171]10[172]B8
10173 G(M1,M2)[178]0
10175 [153]"THE FOLLOWING HAVE BEEN DESTROYED:"
10180 [153] [163]5) S8," STARS"
10185 [139] K8[177]0 [167] [153] [163]5) K8," KLINGONS"
10190 [139] B8[177]0 [167] [153] [163]5) B8," STARBASE"
10195 K9[178]K9[171]K8:K8[178]0:B8[178]0:S8[178]0:MN[178]MN[171]1:[139] K9[178]0 [167] 6370
10200 [153]:[137] 1990
10208 [143] DAMAGE CONTROL FROM ATTACK DURING SPM AND ENTERING BLACK HOLE
10210 R1[178][165]R(1):D(R1)[178]D(R1)[171].5[172][187](.):[141]8790
10215 [153]:[153]"DAMAGE CONTROL REPORT:":[153] G2$;" DAMAGED."
10220 [142]
10245 [143] EXPLODING STAR SUBROUTINE (FE = FORCE OF EXPLOSION)
10250 [139][187](.)[179].3[167]10400
10260 FE[178][181](3[172][187](.)[170]1)
10262 M1[178]Q1:M2[178]Q2
10265 [129] I[178]1[164]1500:[130]I:[153]"STAR HAS BECOME UNSTABLE AND EXPLODED"
10268 [153]"WITH FORCE ";[181](FE);"!!":[129]I[178]1[164]1500:[130]I:G(Q1,Q2)[178]G(Q1,Q2)[171]1
10269 Z1[178]X3:Z2[178]Y3:A$[178]"   ":[141]8670
10270 K8[178][181](G(M1,M2)[172].01):B8[178][181](G(M1,M2)[172].1)[171]10[172]K8
10275 [139]B8[178]0[167]10300
10280 SB[178][186]((B4[171]X3)[174]2 [170] (B5[171]Y3)[174]2)
10285 [139]SB[177]FE[167]10300
10290 [153]"STARBASE IS DESTROYED IN STELLAR EXPLOSION!":B3[178]B3[171]1:B9[178]B9[171]1:B8[178]B8[171]1
10293 Z1[178]B4:Z2[178]B5:A$[178]"   ":[141]8670
10295 G(M1,M2)[178]G(Q1,Q2)[171]10
10300 [139]K8[179][178]0[167]10345
10305 [129] I[178]1[164]K8
10310 SK[178][186]((K(I,1)[171]X3)[174]2 [170] (K(I,2)[171]Y3)[174]2)
10315 [139]SK[177]FE[167]10340
10320 [153]"KLINGON AT ";K(I,1);",";K(I,2);" DESTROYED!"
10325 K3[178]K3[171]1:K9[178]K9[171]1:G(Q1,Q2)[178]G(Q1,Q2)[171]100:K(I,3)[178]0
10330 Z1[178]K(I,1):Z2[178]K(I,2):A$[178]"   ":[141]8670
10335 [139] K9[179][178]0[167] 6370
10340 [130]I
10345 SE[178][186](([182](S1[171]X3))[174]2 [170] ([182](S2[171]Y3))[174]2)
10350 [139] SE[177]FE [167]10400
10355 [153]"ENTERPRISE HAS BEEN DESTROYED IN":[153]"STELLAR EXPLOSION!!":[137]6210
10400 [142]
10450 [143] DAMAGE REPAIR ROBOT (RB)
10455 [139] RB[177]0[167]10465
10460 [153]"NO MORE REPAIR ROBOTS, CAPTAIN.":[137]1990
10465 [139][187](.)[179].95[167] 10520
10470 [153]"ROBBY THE REPAIR ROBOT HAS GONE CRAZY!!"
10475 [153]"DAMAGE CONTROL REPORTS:":LT[178]0
10480 [129]LL[178]1[164]9:[139] [187](.)[179].6[167]10500
10485 D(LL)[178]D(LL)[171]2[172][187](.)
10490 [139]D(LL)[177][178]0[167]10500
10495 R1[178]LL:[141]8790:[153]G2$;" DAMAGED BY ROBOT":LT[178]1
10500 [130]LL
10505 [139] LT[178]0 [167][153]"NOTHING DAMAGED FORTUNATELY."
10510 [153]"SECURITY HAS BEEN FORCED TO DESTROY":[153]"ALL REPAIR ROBOTS."
10515 RB[178]0:[137]1990
10520 [153]"ROBBY THE REPAIR ROBOT IS HARD AT ":[153]"WORK."
10521 [129]LL[178]1[164]9
10525 [139]D(LL)[179]0[167]10530
10527 D(LL)[178]0:[137]10545
10530 [139]D(LL)[177][171].5[167]D(LL)[178]0
10535 [139]D(LL)[179][171].5[175]D(LL)[177][171]1[167]D(LL)[178][171].25
10540 [139]D(LL)[179][178][171]1[167]D(LL)[178].5[172]D(LL)
10545 [130]LL:[129]I[178]1[164]1000:[130]I:[153]"ROBBY IS FINISHED."
10550 RB[178]RB[171]1:[137]1990
10575 [143] LONG RANGE PROBE (PR)
10580 [139] PR[177]0[167]10590
10585 [153]"NO MORE LONG RANGE PROBES REMAINING.":[137] 1990
10590 [139]E[177]100[167]10600
10595 [153]"INSUFFICIENT ENERGY TO LAUNCH PROBE.":[137]1990
10600 E[178]E[171]100:PR[178]PR[171]1:[153]"LONG RANGE PROBE IS LAUNCHED."
10605 [129] LL[178]1[164]1500:[130]LL
10610 [139][187](.)[177].35 [167]10615
10613 [139]K3[177]0[167][153]"KLINGONS IN QUADRANT HAVE DESTROYED":[153]"PROBE.":[137]1990
10615 [153]"LONG RANGE PROBE SCAN FROM":[153]"QUADRANT";[181](Q1);",";[181](Q2)
10620 O1$[178]"-------------------------------":[153]O1$
10625 [129] I[178]Q1[171]2[164]Q1[170]2:N(1)[178][171]1:N(2)[178][171]2:N(3)[178][171]3:N(4)[178][171]4:N(5)[178][171]5:[129]J[178]Q2[171]2[164]Q2[170]2
10630 [139]I[177]0[175]I[179]9[175]J[177]0[175]J[179]9[167]N(J[171]Q2[170]3)[178]G(I,J):Z(I,J)[178]G(I,J)
10635 B$[178]"***  "
10640 [130]J: [129]L[178]1[164]5:[153]": ";:[139]N(L)[179]0[167][153][200](B$,4);:[137]10650
10645 [153][201]([196](N(L)[170]1000),3);" ";
10650 [130]L:[153]":":[153]O1$:[130]I:[137]1990
10750 [143] COMPUTER LISTING OF ITEMS ON BOARD
10755 [153]:[153]" DEVICE              QUANTITY REMAINING"
10760 [153]"ENERGY";[163]28);[181](E)
10765 [153]"PHOTON TORPEDOES";[163]28);[181](P)
10770 [153]"DROIDS";[163]28);[181](DR)
10775 [153]"SPACE JUMPS";[163]28);[181](SJ)
10780 [153]"SPACE MINES";[163]28);[181](MN)
10785 [153]"LONG RANGE PROBES";[163]28);[181](PR)
10790 [153]"REPAIR ROBOT";[163]28);[181](RB)
10795 [153]:[137]1990
10850 [143] ION STORM
10855 [153]"ENTERPRISE IS ENCOUNTERING AN ION":[153]"STORM."
10860 [153]"DAMAGE CONTROL REPORT:":XX[178]0
10865 [139] [187](.)[179].7[167]10880
10870 R1[178]1:[141]8790:D(R1)[178]D(R1)[171]2[172][187](.)
10875 [153]G2$;" DAMAGED.":XX[178]1
10880 [139] [187](.)[179].6[167]10895
10885 R1[178]2:[141]8790:D(R1)[178]D(R1)[171]2.5[172][187](.)
10890 [153]G2$;" DAMAGED.":XX[178]1
10895 [139][187](.)[179].65[167]10910
10900 R1[178]3:[141]8790:D(R1)[178]D(R1)[171]1.5[172][187](.)
10905 [153]G2$;" DAMAGED.":XX[178]1
10910 [139][187](.)[179].8[167]10925
10915 R1[178]7:[141]8790:D(R1)[178]D(R1)[171][187](.)
10920 [153]G2$;" DAMAGED.":XX[178]1
10925 [139]XX[178]0[167][153]"NO FURTHER DAMAGE."
10927 [141]6000
10930 [137] 1990
11000 [143] EFFICIENCY RATING
11005 [153]:[153]" LEVEL:";LD
11010 [153]:[153]" NO. OF KLINGONS DESTROYED: ";[181](K7[171]K9)
11012 TZ[178].1[172][181]((T0[170]T9[171]T)[172]10):[139]TZ[179][178]0[167]TZ[178]0
11015 [153]:[153]" TIME REMAINING: ";TZ;" STARDATES"
11020 [153]:[153]" *** EFFICIENCY RATING ***"
11025 [139] SC[177][171]500[167]11035
11030 [153]" GREETINGS OH KING OF THE KNUCKLEHEADS!":[142]
11035 [139] SC[177][178][171]500[175]SC[179][171]250[167][153]" I KNIGHT THEE 'SIR DIMWIT'.":[142]
11040 [139]SC[177][178][171]250[175]SC[179]0[167][153]" HELLO WIMPY!":[142]
11045 [139] SC[177][178]0[175]SC[179]250[167][153]" HELLO SPACE CADET!!!":[142]
11050 [139] SC[177][178]250[175]SC[179]500[167][153]" MOVE UP TO COMMODORE (PUN).":[142]
11055 [139] SC[177][178]500[175]SC[179]750[167][153]" PROMOTED TO ADMIRAL.":[142]
11060 [139] SC[177][178]750[175]SC[179]1000[167][153]" PROMOTED TO KING.":[142]
11065 [139] SC[177][178]1000[167][153]" LETS HEAR IT FOR OL' FART FACE!!"
11070 [142]
11195 [143] INVENTORY OF DEVICES ON ENTERPRISE
11200 [153]"LOAD":[153]:[153]"INVENTORY LISTING OF THE ENTERPRISE":[153]
11205 [153]"DEVICE";[163]20);"NO.";[163]25);"COST (CREDITS)":[153]
11210 [153]"TORPEDO CAPACITY";[163]19);[181](P0);[163]29);[181](P0[172]150)
11215 [153]"DROIDS";[163]19);[181](DR);[163]29);[181](DR[172]250)
11220 [153]"SPACE JUMPS";[163]19);[181](SJ);[163]29);[181](SJ[172]350)
11225 [153]"SPACE MINES";[163]19);[181](MN);[163]29);[181](MN[172]500)
11230 [153]"LONG RANGE PROBES";[163]19);[181](PR);[163]29);[181](PR[172]300)
11235 [153]"REPAIR ROBOT";[163]19);[181](RB);[163]29);[181](RB[172]200):[153]
11240 [153]"ANY UNUSED CREDITS ARE USED TOWARD":[153]"IMPROVING YOUR SCORE.":[153]
11245 CO[178](P0[172]150[170]DR[172]250[170]SJ[172]350[170]MN[172]500[170]PR[172]300[170]RB[172]200):CR[178]5000[171]CO
11250 [153]"TOTAL BUDGET = 5000 CREDITS"
11255 [153]"TOTAL COST = ";[181](CO);" CREDITS":[153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
11260 [153]"REMAINDER = ";[181](CREDIT);" CREDITS":[153]:[142]
11500 [143] CLOAKING DEVICE
11502 [139] CD[178]1[167][153]"CLOAKING DEVICE IS ALREADY ACTIVATED.":[137]1990
11505 [139] D(9)[177][178]0[167]11515
11510 [153]"CLOAKING DEVICE IS INOPERABLE.":[137]1990
11515 [139]E[177]300[167]11525
11520 [153]"INSUFFICIENT ENERGY TO OPERATE":[153]"CLOAKING DEVICE.":[137]1990
11525 E[178]E[171]300:CD[178]1:[153]"CLOAKING DEVICE IS ACTIVATED."
11530 [137]1990
12000 [143] DATA STATEMENTS FOR LEVEL OF DIFFICULTY(DL(5)) AND S9 (KLINGONS)
12005 [131] .98,.95,.80,.92,.95,50
12010 [131] .98,.94,.75,.93,.95,75
12015 [131] .98,.95,.75,.94,.90,100
12020 [131] .98,.94,.80,.95,.90,150
12025 [131] .98,.94,.80,.95,.90,200
12030 [131] .97,.93,.78,.96,.80,250
12035 [131] .97,.93,.78,.96,.80,325
12040 [131] .96,.92,.77,.96,.70,400
12045 [131] .95,.92,.75,.96,.70,550
12050 [131] .95,.92,.75,.95,.65,700
12055 [131] .95,.92,.73,.95,.61,775
12060 [131] .94,.91,.73,.95,.57,850
12065 [131] .94,.91,.72,.95,.53,925
12070 [131] .93,.90,.72,.96,.49,1000
12075 [131] .93,.90,.70,.96,.45,1200
15000 [143] HEADING AND INSTRUCTION
15005 [153]"LOAD":[153]:[153]:[153]:[153]:[153]
15010 [153][163]10);"(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)"
15015 [153][163]10);"SGN  STAR TREK 84  +"
15020 [153][163]10);"(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR"
15025 [153]:[153]:[153]:[153]:[153]:[153]:[153]:[153]:[153]:[153]:[153][163]35);"M.O.":[129]L6[178]1[164]750:[130]L6
15030 [129]L6[178]1[164]2000:[130]L6:[153]"LOAD":[153]:[153]
15035 [153]" STAR TREK 84 IS A REVISED VERSION OF"
15040 [153]" 'SUPER STAR TREK' WRITTEN BY"
15045 [153]" DAVID AHL AND ROBERT LEEDOM."
15050 [153]" THESE REVISIONS HAVE BEEN MADE BY"
15055 [153]" MIKE OMOTANI, APRIL 1984.":[153]
15060 [153]" THIS PROGRAM HAS ADDED ON MORE"
15065 [153]" COMMANDS PLUS THE OPTION OF"
15068 [153]" DIFFERENT LEVELS OF PLAY AND THE"
15070 [153]" CHANCE TO REFIT THE STARSHIP"
15072 [153]" TO YOUR OWN SPECIFICATIONS. SOME"
15075 [153]" OF THE ORIGINAL COMMANDS HAVE BEEN"
15078 [153]" MODIFIED.":[153]
15080 [153]" BEFORE PLAYING THIS GAME IT IS"
15082 [153]" RECOMMENDED THAT YOU READ THE "
15084 [153]" INSTRUCTIONS GIVEN IN 'TREK 84 INSTR.'"
15086 [153]" (LOAD 'TREK 84 INSTR.' AND RUN "
15088 [153]" PROGRAM.)":[153]
15100 [141]9265
15105 [142]
18000 [143] KLINGON SPIES
18005 [153]"SECURITY REPORTS:":[153]"KLINGON SPIES HAVE INFILTRATED":[153]"ENGINEERING."
18008 [153]"DAMAGE CONTROL REPORT:":XX[178]0
18010 [129] KK[178]1[164]1000:[130]KK:[129]II[178]1[164]9:[139][187](.)[179].65[167]18020
18012 D(II)[178]D(II)[171]3[172][187](.)
18015 R1[178]II:[141]8790:[153]G2$;" SABOTAGED.":XX[178]1
18020 [130]II:[139]XX[178]0[167][153]"NO FURTHER DAMAGE."
18025 [153]"SPIES HAVE BEEN APPREHENDED.":[141]6000:[137]1990
18100 [143] ROMULAN ATTACK
18105 [153]"ATTACK BY ROMULAN VESSEL."
18110 RC[178][181](450[172][187](.)[170]1):S[178]S[171]RC:[153]RC;" UNIT HIT ON THE SHIELDS.":[141] 9895
18115 [141]10210:[139] S[179]0[167] 6220:[129] II[178]1 [164] 1500:[130]II:[139] [187](.)[177].5[167]18110
18120 [153]"ROMULAN VESSEL HAS LEFT THE SECTOR.":[137] 1990
18200 [143] ATTACK BY ORION PIRATES
18205 [153]"ATTACK BY 2 ORION PIRATES."
18210 OP[178][181](250[172][187](.)[170]1):[153]OP;" UNIT HIT ON SHIELDS":S[178]S[171]OP:[139]S[179]0[167]6220
18215 [141]9895:[141]10210:[129]II[178]1[164]2000:[130]II:[153]"PIRATE VESSEL HAS RETREATED."
18220 [137]1990